library(party)
png(file='decision_tree.png')
tree <- ctree(
  nativeSpeaker~age+shoeSize+score,
  data=readingSkills[c(1:105),]
)
plot(tree)
dev.off()
